home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / charcount.l < prev    next >
Text File  |  2007-02-28  |  704b  |  31 lines
  1. 0010 DIM TEXT$ OF 80, CHAR$ OF 1
  2. 0020 ROW:=0; CONS:=0; DIG:=0; OTH:=0; VOW:=0
  3. 0030 READ TEXT$
  4. 0040 FOR CH:=1 TO LEN(TEXT$) DO
  5. 0050 CHAR$:=TEXT$(CH:CH)
  6. 0060 IF CHAR$>="A" AND CHAR$<="Z" THEN
  7. 0070 LETTER
  8. 0080 ELSE 
  9. 0090 NONLETTER
  10. 0100 ENDIF 
  11. 0110 ENDFOR CH
  12. 0120 PRINT VOW;"VOWELS";CONS;"CONSONANTS"
  13. 0130 PRINT DIG;"DIGITS";OTH;"OTHERS"
  14. 0140 PROC LETTER 
  15. 0150 IF CHAR$ IN "AEIOU" THEN
  16. 0160 VOW:=VOW+1
  17. 0170 ELSE 
  18. 0180 CONS:=CONS+1
  19. 0190 ENDIF 
  20. 0200 ENDPROC LETTER
  21. 0210 PROC NONLETTER 
  22. 0220 IF CHAR$<>" " THEN
  23. 0230 IF CHAR$ IN "0123456789" THEN
  24. 0240 DIG:=DIG+1
  25. 0250 ELSE 
  26. 0260 OTH:=OTH+1
  27. 0270 ENDIF 
  28. 0280 ENDIF 
  29. 0290 ENDPROC NONLETTER
  30. 0300 DATA "CRY 'HAVOC', AND LET SLIP THE DOGS OF WAR. - JULIUS CAESAR 3.2"
  31.